home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / dnalib59.arj / DNALIB.INC < prev    next >
Text File  |  1994-02-23  |  3KB  |  57 lines

  1. DECLARE SUB AreaCLS(Row%,Col%,NumRows%,ColsWide%,Character%,Attr%)
  2. DECLARE SUB Ask(Text$,Mouse%,Rtrn%,Location%,Button%,Push%,Attr%,Shadow%,Border%)
  3. DECLARE SUB Browse(FileName$,Mouse%,TextColor%,TopRow%,LeftColumn%,BottomRow%,Attr%,Bground%,Shadow%,Border%)
  4. DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%)
  5. DECLARE SUB CheckBits(Attr%,BitOne%,BitTwo%,BitThree%,BitFour%,BitFive%,BitSix%,BitSeven%,BitEight%)
  6. DECLARE SUB Dialog(Choices$(),Title$,Mouse%,Cntr%,TopRow%,LeftColumn%,TxtColor%,Attr%,Shadow%,Border%)
  7. DECLARE SUB DoubleBox(PromptOne$,PromptTwo$,TextOne$,TextTwo$,Allow$,Mouse%,Editkey%,Fill%,Location%,ButtonAttr%,TextAttr%,Attr%,Shadow%,Border%)
  8. DECLARE SUB DirectoryBox(ReturnedFile$,Mouse%,Attr%,BarAttr%,ButtonAttr%,Shadow%,Border%)
  9. DECLARE SUB EditBox(Prompt$,Text$,Allow$,Mouse%,Fill%,Location%,ButtonAttr%,TextAttr%,Attr%,Shadow%,Border%)
  10. DECLARE SUB ExpandTabs(Msg$)
  11. DECLARE SUB GetBytes(BaseScreen$,InsertByte$,Address%,NumBytes%)
  12. DECLARE SUB HorizontalMenu(Choices$(),BarSave$,HiLight%,Mouse%,HPointer%,HotKey%,BarAttr%,HiAttr%,TopRow%,Gap%,Marker%)
  13. DECLARE SUB LineEdit(Allow$,Text$,Mouse%,MouseRow%,MouseCol%,Fill%,Row%,Col%,EditKey%,Attr%)
  14. DECLARE SUB LockStatus(Row%,Col%,BarAttr%,StatusAttr%)
  15. DECLARE SUB Lotus(Choices$(),Infoline$(),HiLight%,Mouse%,LPointer%,HotKey%,HelpTextColor%,HelpAttr%,BarAttr%,HiAttr%,TopRow%,Gap%)
  16. DECLARE SUB MakeByte(Attr%,LowByte%,HiByte%)
  17. DECLARE SUB MayBe(Text$,Answer%,Mouse%,Location%,BAttr%,Attr%,Shadow%,Border%)
  18. DECLARE SUB MoveableWindow(BaseScreen$,ScreenID$,TopRow%,LeftColumn%)
  19. DECLARE SUB Noise(Which%)
  20. DECLARE SUB PickBox(StringArray$(),ReturnedArray$,Title$,TopRow%,Tag%,Mouse%,Attr%,BarAttr%,ButtonAttr%,Shadow%,Border%)
  21. DECLARE SUB PokeArea(TopRow%,LeftColumn%,BottomRow%,RightColumn%,Attr%)
  22. DECLARE SUB Popwind(Title$,Toprow%,Leftcolumn%,Bottomrow%,Rightcolumn%,Attr%,Shadow%,Border%)
  23. DECLARE SUB Qprint(BYVAL Row%,BYVAL Col%,BYVAL A$,BYVAL Attr%)
  24. DECLARE SUB RestoreScreen(ScreenID$,TopRow%,LeftColumn%)
  25. DECLARE SUB SaveScreen(ScreenID$,TopRow%,LeftColumn%,BottomRow%,RightColumn%,Shadow%)
  26. DECLARE SUB ScreenPlus(Row%,Col%,TextFound$)
  27. DECLARE SUB ScrollBox(Choices$(),Rtrn$,Title$,Mouse%,Winsize%,Tag%,Cntr%,Scrolling%,TextColor%,HiAttr%,Attr%,TopRow%,LeftColumn%,Shadow%,Border%)
  28. DECLARE SUB Scroll(Message$,Rev%,Direction%,Row%,Attr%)
  29. DECLARE SUB SplitPath(FilePath$, Path$, FileName$)
  30. DECLARE SUB TypWrite(Text$,Row%,Col%,Attr%)
  31. DECLARE SUB VerticalMenu(Choices$(),Infoline$(),Rtrn$,BarSave$,Mouse%,HotKey%,HelpTextColor%,HelpAttr%,HiAttr%,TopRow%,Marker%,HPointer%,Attr%,Shadow%,Border%)
  32. DECLARE SUB WriteToBox (ReturnedFile$,DefaultName$,Mouse%,Attr%,BarAttr%,ButtonAttr%,Shadow%,Border%)
  33.  
  34. DECLARE FUNCTION AltKey%()
  35. DECLARE FUNCTION CtrlKey%()
  36. DECLARE FUNCTION GetProgramName$()
  37. DECLARE FUNCTION GetPSP%()
  38. DECLARE FUNCTION InsertKey%()
  39. DECLARE FUNCTION KeyDown%()
  40. DECLARE FUNCTION LeftShift%()
  41. DECLARE FUNCTION Printer%(Port%)
  42. DECLARE FUNCTION RightShift%()
  43. DECLARE FUNCTION YesNo%(Text$,Mouse%,Location%,BAttr%,Attr%,Shadow%,Border%)
  44.  
  45. 'Mouse Routines
  46. DECLARE SUB Clicked(Rgt%,Lft%,Row%,Col%)
  47. DECLARE SUB FindMenu(Row%,Col%,Found%)
  48. DECLARE SUB HideCursor()
  49. DECLARE SUB ShowCursor()
  50. DECLARE SUB LocateCursor(Row%,Col%)
  51. DECLARE FUNCTION MouseThere%()
  52. DECLARE FUNCTION LeftButtonReleased%()
  53. DECLARE FUNCTION RightButtonReleased%()
  54. DECLARE FUNCTION BothButtonReleased%()
  55. DECLARE FUNCTION CentreButtonReleased%()
  56.  
  57.